
est clear
use "$data/survey2_clean.dta", clear  


global control male age_25_34 age_35_44 age_45_54 age_55_64 age_65  log_inc log_inc_sq ///
highschool college working student democrat republican 		  


foreach choice in lnday20 exponential {

/* Statistics */

	

eststo main`choice':  reg `choice' $control , vce(r)

lassoregress `choice' $control , numfolds(10)

eststo pdslasso`choice':  reg `choice' `e(varlist_nonzero)' , vce(r)
}
	
	

esttab * using "$tables/growth_perc_pred.tex", replace  booktabs nonotes compress alignment(c) nogap noobs nobaselevels se label stats( r2 N , labels("R$^2$" "Number of observations")) ///
   mtitle("OLS"  "Post LASSO "  "OLS"   "Post LASSO " )  star( * 0.1 **  0.05 *** 0.01 ) ///
   mgroups("Log predicted cases after twenty days"  "Exponential mental model",  pattern(1 0   1 0       ) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span}))

   
   
